home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir28
/
papc20.zip
/
CONVERT.PRG
next >
Wrap
Text File
|
1994-03-24
|
935b
|
53 lines
LBL convert
puts " From To\n"
puts " -------- --------\n"
puts "1 pounds kg\n"
puts "2 oz g\n"
puts "3 °F C\n"
puts "4 inches mm\n"
puts "5 miles km\n"
puts "6 points in\n"
LBL L0
puts "\n"
PROMPT "Enter a conversion choice (1-6) and a number, or CR to exit: "
; next line executed if just a CR is entered
RTN
; here if a number was entered
SWAP
1 <
GTO L0
6 >
GTO L0
JMP
GTO L1
GTO L2
GTO L3
GTO L4
GTO L5
GTO L6
LBL L1
0 putx puts " pounds = " 0.4540 * 0 putx puts " kg\n"
GTO L0
LBL L2
0 putx puts " oz = " 18.3750 * 0 putx puts " g\n"
GTO L0
LBL L3
0 putx puts " °F = " 32 - 5 * 9 / 0 putx puts " C\n"
GTO L0
LBL L4
0 putx puts " in = " 25.4 * 0 putx puts " mm\n"
GTO L0
LBL L5
0 putx puts " miles = " 1.609 * 0 putx puts " km\n"
GTO L0
LBL L6
0 putx puts " points = " 72 / 0 putx puts " in\n"
GTO L0
END